(lazy-lock-mode): Don't try to turn on

font-lock-mode if it's off.  Print a warning instead.

diff --git a/lisp/obsolete/lazy-lock.el b/lisp/obsolete/lazy-lock.el
index d21d6e232b03edb2b721a27a4cb320014ca4f7b0..eaef84a6ab4e8095a930fe1317f16ec5afdf0e4f 100644 (file)
--- a/lisp/obsolete/lazy-lock.el
+++ b/lisp/obsolete/lazy-lock.el
@@ -526,8 +526,8 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'."
                   (if arg (> (prefix-numeric-value arg) 0) (not was-on)))))
     (cond ((and now-on (not font-lock-mode))
           ;; Turned on `lazy-lock-mode' rather than `font-lock-mode'.
-          (let ((font-lock-support-mode 'lazy-lock-mode))
-            (font-lock-mode t)))
+           (message "Use font-lock-support-mode rather than calling lazy-lock-mode")
+           (sit-for 2))
          (now-on
           ;; Turn ourselves on.
           (set (make-local-variable 'lazy-lock-mode) t)